home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Present…nuary (Partner) - Disc 1 / The Apple Reference and Presentations Library (Disc 1)(January 1994).iso / Aldus / US English / PageMaker 5.0 / PageMaker 5.0 PPC / AldusPMacTV / alafter.ps next >
Text File  |  1993-01-01  |  1KB  |  28 lines

  1.  
  2. ALPS begin
  3.  
  4. /W1`{ALPS begin /_prcs? xdef/_ortnt
  5. xdef dup null ne{_prcs?{findcmykprocesscolor}{findcmykcustomcolor}ifelse}if
  6. /_orclr xdef/_cjc?/SetORColorProc _prcs? _orclr _ortnt n2` false setoverprint
  7. /_gop false def/_spotOR? F def Y2` a3`/$clrOverride T def end}bdef
  8.  
  9. /t1`{BMT begin userdict begin}bdef
  10. /u1`{end end} bdef
  11.  
  12. /G1`{fontget/_fDict xdef wcu^ _fDict/FontInfo known {
  13. isWinPS _fDict /FontType get 3 eq and
  14. {_dFontScale}{_fDict /FontMatrix get 3 get} ifelse mul/_uScale xdef _fDict/FontInfo get dup
  15. /UnderlinePosition known not {dup/UnderlinePosition get _uScale mul/_uPosition xdef
  16. }{/_uPosition _dUPosition _uScale mul def}ifelse dup/UnderlineThickness known not{
  17. dup/UnderlineThickness get _uScale mul/_uThickness xdef}{/_uThickness
  18. _dUThickness _uScale mul def}ifelse pop}{_dFontScale mul/_uScale xdef
  19. /_uPosition _dUPosition _uScale mul def/_uThickness _dUThickness _uScale mul
  20. def}ifelse/_uOThickness _BFontUOThick _uScale mul def _fDict/PaintType known{
  21. _fDict/PaintType get 2 eq{_fDict/StrokeWidth known{/_uOThickness _fDict
  22. /StrokeWidth get _uScale mul def}{1 0 _fDict/FontMatrix get dtransform dup mul
  23. exch dup mul add sqrt _OutlineWeight mul _uScale mul/_uOThickness xdef}ifelse}
  24. if}if}bdef
  25.  
  26. end
  27.  
  28.